home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Nibble Volume 09, No. 03 (1988-03)(MicroSPARC)(Side B).zip / Nibble Volume 09, No. 03 (1988-03)(MicroSPARC)(Side B).do / TIMED.INPUT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  507b  |  12 lines
  1. 10 PASSWD$ = "ALPHA":ENTRY$ = ""
  2. 20 STROBE = 49168:INKEY = 49152:KEYPRESS = 0
  3. 30  POKE STROBE,0
  4. 40  FOR I = 1 TO 400
  5. 50  IF  PEEK(INKEY) > = 128  THEN KEYPRESS = 1: GOSUB 100
  6. 60  NEXT I
  7. 70  IF KEYPRESS = 0  THEN  PRINT : PRINT "TIME EXPIRED.": END 
  8. 80  IF KEYPRESS = 1  AND PASSWD$ = ENTRY$  THEN  PRINT : PRINT "ACCESS APPROVED.": GOTO 120
  9. 90  PRINT : PRINT "INCORRECT PASSWORD.": END 
  10. 100  GET A$: IF A$ < > CHR$(13)  THEN ENTRY$ = ENTRY$ +A$: RETURN 
  11. 110 I = 400: RETURN 
  12. 120  REM  PROGRAM CONTINUES HERE